home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1988 April
/
Ahoy_Magazine_88-04_1988_Double_L.d64
/
Time Machine
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
398b
|
14 lines
0 print"[147]"tab(13)"time machine":print
1 rem =================================
2 rem commodares problem #48-3 :
3 rem time machine
4 rem solution by
5 rem john thelen
6 rem =================================
10 input"hrs.,min.,amt.";h,m,a:gosub 30
20 a=0-a: gosub 30: end
30 b=h*60+m+a: c=b/60
40 if int(c)<1 then c=12+c: goto 40
50 if int(c)>12 then c=c-12: goto 50
60 b=c-int(c): d=b/1.67: print int(c)":"int(100*d+.5): return